home *** CD-ROM | disk | FTP | other *** search
/ OpenGL Superbible (2nd Edition) / OpenGL SuperBible e2.iso / tools / GLUT-3.7 / PROGS / ADA / dof_procs.ads < prev    next >
Encoding:
Text File  |  1998-08-12  |  2.8 KB  |  63 lines
  1. --
  2. --  (c) Copyright 1993,1994,1995,1996 Silicon Graphics, Inc.
  3. --  ALL RIGHTS RESERVED
  4. --  Permission to use, copy, modify, and distribute this software for
  5. --  any purpose and without fee is hereby granted, provided that the above
  6. --  copyright notice appear in all copies and that both the copyright notice
  7. --  and this permission notice appear in supporting documentation, and that
  8. --  the name of Silicon Graphics, Inc. not be used in advertising
  9. --  or publicity pertaining to distribution of the software without specific,
  10. --  written prior permission.
  11. --
  12. --  THE MATERIAL EMBODIED ON THIS SOFTWARE IS PROVIDED TO YOU "AS-IS"
  13. --  AND WITHOUT WARRANTY OF ANY KIND, EXPRESS, IMPLIED OR OTHERWISE,
  14. --  INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF MERCHANTABILITY OR
  15. --  FITNESS FOR A PARTICULAR PURPOSE.  IN NO EVENT SHALL SILICON
  16. --  GRAPHICS, INC.  BE LIABLE TO YOU OR ANYONE ELSE FOR ANY DIRECT,
  17. --  SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY
  18. --  KIND, OR ANY DAMAGES WHATSOEVER, INCLUDING WITHOUT LIMITATION,
  19. --  LOSS OF PROFIT, LOSS OF USE, SAVINGS OR REVENUE, OR THE CLAIMS OF
  20. --  THIRD PARTIES, WHETHER OR NOT SILICON GRAPHICS, INC.  HAS BEEN
  21. --  ADVISED OF THE POSSIBILITY OF SUCH LOSS, HOWEVER CAUSED AND ON
  22. --  ANY THEORY OF LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE
  23. --  POSSESSION, USE OR PERFORMANCE OF THIS SOFTWARE.
  24. --
  25. --  US Government Users Restricted Rights
  26. --  Use, duplication, or disclosure by the Government is subject to
  27. --  restrictions set forth in FAR 52.227.19(c)(2) or subparagraph
  28. --  (c)(1)(ii) of the Rights in Technical Data and Computer Software
  29. --  clause at DFARS 252.227-7013 and/or in similar or successor
  30. --  clauses in the FAR or the DOD or NASA FAR Supplement.
  31. --  Unpublished-- rights reserved under the copyright laws of the
  32. --  United States.  Contractor/manufacturer is Silicon Graphics,
  33. --  Inc., 2011 N.  Shoreline Blvd., Mountain View, CA 94039-7311.
  34. --
  35. --  OpenGL(TM) is a trademark of Silicon Graphics, Inc.
  36. --
  37.  
  38. with GL; use GL;
  39.  
  40. package Dof_Procs is
  41.    procedure accFrustum
  42.       (left  : GLdouble; right : GLdouble; bottom : GLdouble;
  43.        top   : GLdouble; near  : GLdouble; far    : GLdouble;
  44.        pixdx : GLdouble; pixdy : GLdouble; eyedx  : GLdouble;
  45.        eyedy : GLdouble; focus : GLdouble);
  46.  
  47.    procedure accPerspective
  48.       (fovy  : GLdouble; aspect : GLdouble; near  : GLdouble;
  49.        far   : GLdouble; pixdx  : GLdouble; pixdy : GLdouble;
  50.        eyedx : GLdouble; eyedy  : GLdouble; focus : GLdouble);
  51.  
  52.    procedure renderTeapot
  53.       (x     : GLfloat; y     : GLfloat; z     : GLfloat;
  54.        ambr  : GLfloat; ambg  : GLfloat; ambb  : GLfloat;
  55.        difr  : GLfloat; difg  : GLfloat; difb  : GLfloat;
  56.        specr : GLfloat; specg : GLfloat; specb : GLfloat;
  57.        shine : GLfloat);
  58.  
  59.    procedure DoInit;
  60.    procedure DoDisplay;
  61.    procedure ReshapeCallback (w : Integer; h : Integer);
  62. end Dof_Procs;
  63.